home *** CD-ROM | disk | FTP | other *** search
/ Virtual Sex Shoot / Virtual Sex Shoot.iso / mac / Virtual Sex Shoot / Virtual Sex Shoot.DXR / 00124.ls < prev    next >
Encoding:
Text File  |  1995-09-24  |  4.7 KB  |  126 lines
  1. global gMovieSprite, gOldMovie, gWhichMovie, gWhichClip, gStartTime, gStopTime, gFrames, gLabels, gStoredTime, gVR, gBDrop, gMarkers, gMovie1TimeCodes, gMovie2TimeCodes, gMovie3TimeCodes, gMovie4TimeCodes, gSliderCorrelation, gSliderCorrelationCount, gReturning, gFloatingSprite, gAutomated, gAutoInUse, gRecording, gPlaying, gWhichCamera, gMoviePauseState, gFullScreen, gSliderSprite, gVRSprite1, gVRSprite2, gIntroVR, gGirlVR, gGirlVR2, gAutomatedTimes, gWhichAutomatedClip
  2.  
  3. on startMovie
  4.   unLoad()
  5.   unLoadCast()
  6.   setGlobals()
  7.   startMoviePrefs()
  8.   set the volume of sound 1 to 255
  9.   set the volume of sound 2 to 100
  10.   getMarkers()
  11.   setProp(1, 48, "visibility", 1)
  12.   swapPlaybackScreen("playback dot")
  13.   startMovieVR()
  14.   when keyDown then checkKey
  15. end
  16.  
  17. on stopMovie
  18.   swapPlaybackScreen("playback dot")
  19.   stopMovieVR()
  20. end
  21.  
  22. on setGlobals
  23.   clearGlobals()
  24.   set gVR to the frame >= label("vr")
  25.   if the machineType <> 256 then
  26.     set gIntroVR to "Virtual Sex Shoot:VRSexS_W.MOV"
  27.     set gGirlVR to "Virtual Sex Shoot:VR_GIRL.MOV"
  28.     set gGirlVR2 to "Virtual Sex Shoot:VR_GIRL.MOV"
  29.   else
  30.     set gIntroVR to the pathName & "VRSexS_W.MOV"
  31.     set gGirlVR to the pathName & "VR_GIRL.MOV"
  32.     set gGirlVR2 to the pathName & "VR_GIRL2.MOV"
  33.   end if
  34.   set gBDrop to the number of cast "bDrop"
  35.   set gFloatingSprite to 14
  36.   set gVRSprite1 to 3
  37.   set gVRSprite2 to 4
  38.   set gFrames to []
  39.   set gLabels to []
  40.   set gStoredTime to []
  41.   set gMovieSprite to 15
  42.   set gSliderSprite to 37
  43.   set gReturning to 0
  44.   resetGlobals()
  45.   set gMovie1TimeCodes to [[0, 8420, 8486, 16899], [16965, 22970, 23036, 29037], [29103, 35303, 35369, 41559], [41625, 47781, 47848, 54008], [54074, 58210, 58276, 62415], [62481, 65395, 65471, 68376]]
  46.   set gMovie2TimeCodes to [[68430, 73839, 73905, 79312], [79378, 84975, 85041, 90608], [90680, 97857, 97923, 105097], [105163, 107218, 108284, 111338], [111404, 116602, 116668, 121862], [121928, 126947, 127013, 132030]]
  47.   set gMovie3TimeCodes to [[132086, 135301, 135367, 138572], [138638, 142129, 142195, 145681], [145747, 151371, 151437, 157059], [157125, 163177, 163243, 169278], [169344, 173621, 173687, 177957], [178023, 182008, 182074, 186050]]
  48.   set gMovie4TimeCodes to [[186102, 195621, 195687, 205196], [205262, 211391, 211457, 217573], [217639, 222428, 222494, 227283], [227349, 230300, 230366, 233319], [233382, 244548 - 78, 244614 + 78, 255780]]
  49. end
  50.  
  51. on resetGlobals
  52.   set gAutomated to 0
  53.   set gAutoInUse to 0
  54.   set gOldMovie to 1
  55.   set gWhichMovie to 1
  56.   set gWhichClip to 1
  57.   set gWhichCamera to "A"
  58.   set gStartTime to 0
  59.   set gStopTime to 0
  60.   set gRecording to 0
  61.   set gPlaying to 1
  62.   set gFullScreen to 0
  63.   set gMoviePauseState to 1
  64.   set gSliderCorrelation to []
  65.   set gSliderCorrelationCount to 0
  66.   set gAutomatedTimes to []
  67.   set gWhichAutomatedClip to 0
  68.   set gMarkers to []
  69.   set the timeoutScript to "nothing"
  70. end
  71.  
  72. on adjustTimeCodes
  73.   set gMovie1TimeCodes to [[0, 8420, 8486, 16899], [16965, 22970, 23036, 29037], [29103, 35303, 35369, 41559], [41625, 47781, 47848, 54008], [54074, 58210, 58276, 62415], [62481, 65395, 65471, 68376]]
  74.   set gMovie2TimeCodes to [[0, 5409, 5475, 10882], [10948, 16545, 16611, 22178], [22250, 29427, 29493, 36667], [36733, 38788, 39854, 42908], [42974, 48172, 48238, 53432], [53498, 58517, 58583, 63600]]
  75.   set gMovie3TimeCodes to [[0, 3215, 3281, 6486], [6552, 10043, 10109, 13595], [13661, 19285, 19351, 24973], [25039, 31091, 31157, 37192], [37258, 41535, 41601, 45871], [45937, 49922, 49988, 53964]]
  76.   set gMovie4TimeCodes to [[0, 9519, 9585, 19094], [19160, 25289, 25355, 31471], [31537, 36326, 36392, 41181], [41247, 44198, 44264, 47217], [47277, 60214, 60280, 73212]]
  77.   repeat with x = 1 to count(gMovie2TimeCodes)
  78.     set listX to getAt(gMovie2TimeCodes, x)
  79.     repeat with y = 1 to count(listX)
  80.       setAt(listX, y, getAt(listX, y) + 68430)
  81.     end repeat
  82.     setAt(gMovie2TimeCodes, x, listX)
  83.   end repeat
  84.   put gMovie2TimeCodes
  85.   repeat with x = 1 to count(gMovie3TimeCodes)
  86.     set listX to getAt(gMovie3TimeCodes, x)
  87.     repeat with y = 1 to count(listX)
  88.       setAt(listX, y, getAt(listX, y) + 132086)
  89.     end repeat
  90.     setAt(gMovie3TimeCodes, x, listX)
  91.   end repeat
  92.   put gMovie3TimeCodes
  93.   repeat with x = 1 to count(gMovie4TimeCodes)
  94.     set listX to getAt(gMovie4TimeCodes, x)
  95.     repeat with y = 1 to count(listX)
  96.       setAt(listX, y, getAt(listX, y) + 186102)
  97.     end repeat
  98.     setAt(gMovie4TimeCodes, x, listX)
  99.   end repeat
  100.   put gMovie4TimeCodes
  101. end
  102.  
  103. on go1
  104.   go(".00")
  105. end
  106.  
  107. on go2
  108.   go("vr.1")
  109. end
  110.  
  111. on advanceVR whichFrame
  112.   CloseNavMovie()
  113.   if the machineType = 256 then
  114.     ClosePanoMovie()
  115.     set whichFramePlus to label(whichFrame & 2)
  116.   else
  117.     set whichFramePlus to label(whichFrame & the colorDepth > 8)
  118.   end if
  119.   if whichFramePlus > 0 then
  120.     go(whichFramePlus)
  121.   else
  122.     go(whichFrame)
  123.   end if
  124.   resetGlobals()
  125. end
  126.